CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swagn_r.zip/NUMBERS.SWG/0003_BIT_GET.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 227b | 11 lines

{ You can use multiplies of 2 like: }

Function Find_Bit(B, c : Byte) : Byte;
{c is the position c=0 far right c=7 far left
returns 0 or 1}
begin
 if b MOD (b shl c) = 0 then Find_Bit := 0
  else Find_Bit := 1
end;